;;;Place a Map North Symbol "n" (block) in the drawing.  (uses UPOINT)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;	Copyright:	5-27-94
;;;	Edited:		11-20-2013
;;;
(DEFUN C:MPNH ( / );pt1 pt2 pt3 inss1 inss2 e1ang e2ang
  (setvar "cmdecho" 0)
  (if dimscl nil (load "dimscl" "File DIMSCL.LSP not loaded! "))
  (if gvpno nil (load "gvpno" "File GVPNO.LSP not loaded! "))
  (if upoint nil (load "upoint" "File UPOINT.LSP not loaded! "))
  (dimscl)
  (setq pt1 (getpoint "\nBase of North Arrow ")
        pt1 (list(car pt1)(cadr pt1)(* dimsc 1001))
  );setq
;;;  (if (/=(getvar"viewtwist")0)
    (setq e1ang 90)
;;;    (setq pt3
;;;            (if
;;;              (setq rotent(entsel "\nSelect rotated entity to match or Enter to Pick rotation. "))
;;;              (polar pt1 (+(/ pi 2)(cdr(assoc 50(entget(car rotent)))))1)
;;;              (upoint 1 "" "\nMagnetic North Direction " nil pt1)
;;;            )
;;;          e1ang (*(+(* 0.5 PI)(/(-(angle pt1 pt3)(/ pi 2.0))(* 2.0 pi)))360.00)
;;;    );setq
;;;  )
  (graphscr)
  (c:svlayr)
  (gvpno)
  (setq mjrg "C"
        llt "-"
        colr "1"
        modf "SYMB")
  (c:mklayr)
  (command ".insert" "northa-hid" pt1 (/ dimsc 2.0)(/ dimsc 2.0) e1ang "" "" )
  (c:rslayr)
  (setvar "cmdecho" 1)
  (command)
);defun c:mgn
